10 REM BEdHNUNG BRUTTO AUS NETTO
20 DIMNETT(20)
30 DIMMWST(20)
40 DIMBRUT(20)
50 REM EINLESEN DER NETTO-WERTE
60 FORI=0TO20
70 PRINTCHR$(147)
80 PRINT"NETTOWERT "I":";:INPUTNETT(I)
90 IFNETT(I)=9999THEN110
100 NEXTI
110 REM BEdHNEN
120 FORI=0TO20
130 IFNETT(I)=9999THEN160
140 MWST(I)=NETT(I)*0.14
150 NEXTI
160 REM BEdHNUNG BRUTTO
170 FORI=0TO20
180 IFNETT(I)=9999THEN210
190 BRUT(I)=NETT(I)+MWST(I)
200 NEXTI
210 REM AUSGEBEN DER WERTE
220 PRINTCHR$(147)
230 PRINT"NETTO","MWST","BRUTTO"
240 FORI=0TO20
250 IFNETT(I)=9999THENEND
260 PRINTNETT(I),MWST(I),BRUT(I)
270 NEXTI
280 END